<script>on mouseUpif fld "テ・竕・テェテョ1"="?"thenplay "Boing"answer "テ窶ケテテヲテ窶。テテ津テヲテツ「テ邃「テ竕暗ニ津ツサテツ「テテ甘③"exit mouseUpend ifput fld "テャツクテウテ" into itif it is empty thenanswer "テァ竏づテεテ古竕 テテεュテ愿窶ヲテャテカテツカテï」ソテャツクテウテ陛ツオテニ津ツゥテテテ②テツアテテε閲テ運テ嘉ャテï」ソテ丑テ嘉、テ叡テ丑テツオテニ津竕 テテヲテ竕・テツ「テ③"select after text of bg fld "テャツクテウテ"exit mouseUpend ifif it >999 thenput F(it) into fld "テ「ï」ソテャテカ1000"put fld"テ「ï」ソテャテカ1000"*1000 into Gput it - G into Hput T(H) into fld "テ「ï」ソテャテカ100"put fld"テ「ï」ソテャテカ100"*100 into Wput H - W into Vput Y (V) into fld "テ「ï」ソテャテカ10"put fld "テ「ï」ソテャテカ10"*10 into Zput V - Z into Uput U into fld "テ「ï」ソテャテカ1"elseif it >99 thenput empty into fld "テ「ï」ソテャテカ1000"put T(it) into fld "テ「ï」ソテャテカ100"put fld "テ「ï」ソテャテカ100"*100 into Wput it - W into Vput Y(V) into fld "テ「ï」ソテャテカ10"put fld "テ「ï」ソテャテカ10"*10 into Zput V - Z into Uput U into fld "テ「ï」ソテャテカ1"elseif it < 10 thenput empty into fld "テ「ï」ソテャテカ10"put it into fld"テ「ï」ソテャテカ1"elseput Y (it) into fld "テ「ï」ソテャテカ10"put fld "テ「ï」ソテャテカ10"*10 into Zput it - Z into Uput U into fld "テ「ï」ソテャテカ1"end ifend ifend ifsend"mouseUp" to btn "OK"select after text of fld "テャツクテウテ"end mouseUpfunction F yonketaput yonketa/1000 into kput trunc(k) into Freturn Fend Ffunction T miketaput miketa/100 into Pput trunc (P) into Treturn Tend Tfunction Y hutaketaput hutaketa/10 into Xput trunc (X) into Yreturn Yend Y</script>
</part>
<part>
<id>16</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>58</left>
<top>369</top>
<right>114</right>
<bottom>403</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>30</textSize>
<textStyle>plain</textStyle>
<textHeight>40</textHeight>
<name>テェ竕・テ「ï」ソテェテョ</name>
<script></script>
</part>
<part>
<id>17</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>58</left>
<top>415</top>
<right>113</right>
<bottom>448</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>30</textSize>
<textStyle>plain</textStyle>
<textHeight>40</textHeight>
<name>テア窶堙ォテ凝ェテョ</name>
<script></script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>345</left>
<top>90</top>
<right>428</right>
<bottom>112</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Osaka</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>OK</name>
<script>on mouseUpon mouseUpif fld "テ・竕・テェテョ1"= "?" thenanswer "テ窶ケテテヲテ窶。テテ津テヲテツ「テ邃「テ竕暗ニ津ツ「テ窶ケテマ\テテ"elseput fld "テ「ï」ソテャテカ1000"*1000 + fld"テ「ï」ソテャテカ100"*100+fld "テ「ï」ソテャテカ10"*10 + fld"テ「ï」ソテャテカ1"into Lput fld"テ・竕・テェテョ10"*10 + fld "テ・竕・テェテョ1"into Hput fld "テォツエテェテョ10"*10 + fld "テォツエテェテョ1"into Bif H * B = L thenplay "harpsichord" tempo 800 e6w c6wanswer "テ鋭テ嘉ャテ榎テ [テ嘉ャテ⑩テテ甘竕 テ竕暗ツエテ窶ケテツオテホゥテ③"with "OK"play "harpsichord" tempo 800 c7w c6wput empty into fld "テ・竕・テェテョ100"put empty into fld "テ・竕・テェテョ10"put random(9) into fld "テ・竕・テェテョ1"put empty into fld "テォツエテェテョ10"put 1 + random(8) into fld "テォツエテェテョ1"put "" into fld "テ「ï」ソテャテカ1000"put "" into fld "テ「ï」ソテャテカ100"put "0" into fld "テ「ï」ソテャテカ10"put "0" into fld "テ「ï」ソテャテカ1"put empty into fld "テャツクテウテ"put fld "テェ竕・テ「ï」ソテェテョ" + 1 into fld "テェ竕・テ「ï」ソテェテョ"put fld "テア窶堙ォテ凝ェテョ" + 1 into fld "テア窶堙ォテ凝ェテョ"if fld "テェ竕・テ「ï」ソテェテョ" = 10 thenplay "flute" tempo 250 c4h e4q g4q c6w c6h b5h a5h b5h c6wanswer "テツョテïャづ竕暗竏テツァテ③テ㈲テ㈴テ㈴テャ_テ⑩"with "テ窶堙ツ。テホゥテテシテ⑩"put 0 into fld "テェ竕・テ「ï」ソテェテョ"put 0 into fld "テア窶堙ォテ凝ェテョ"visual effect dissolve very slowgo cd "11"elseend ifelseplay"Boing"answer"テ窶。テツァテ テ催ャxテァlテツカテニ津窶コテテ甘ツァテ③"put empty into fld "テャツクテウテ"put fld "テア窶堙ォテ凝ェテョ" + 1 into fld "テア窶堙ォテ凝ェテョ"select after text of fld "テャツクテウテ"end ifend ifend mouseUpend mouseUp</script>
<script>on mouseUpPLAY "harpsichord" tempo 500 e6w c6wanswer"テ窶。テツァテ窶堙ïャづ窶ケテ竏妥ツゥテ⑨テテクテ邃「テツァテ厩テ影テ叡テ益テ窶ヲテツオテ窶ケテ竏妥ツゥテ⑨"with "テ窶堙ïャづテ"or "テ厩テ影テ叡テ益テï」ソテツゥテツカテテ"if it is"テ窶堙ïャづテ"thenplay "harpsichord" tempo 600 c7w G6w c7wput"0" into fld "テア窶堙ォテ凝ェテョ"put "0" into fld "テェ竕・テ「ï」ソテェテョ"go cd "4"elseif it is "テ厩テ影テ叡テ益テï」ソテツゥテツカテテ"thenplay "harpsichord" tempo 600 c7w g6w c7wput"0" into fld "テア窶堙ォテ凝ェテョ"put "0" into fld "テェ竕・テ「ï」ソテェテョ"visual effect barn door close slowgo cd "2"else go HOMEend ifend mouseUp</script>